# NOT RUN {
d.x <- read.table(header=TRUE, text="
AA BB CC DD EE FF GG
7.9 18.1 13.3 6.2 9.3 8.3 10.6
9.8 14.0 13.6 7.9 2.9 9.1 13.0
6.4 17.4 16.0 10.9 8.6 11.7 17.5
")
ToLong(d.x)
# ToWide by row numbers (by = NULL)
ToWide(PlantGrowth$weight, PlantGrowth$group)
# To wide aligned by key
set.seed(41)
PlantGrowth$nr <- c(sample(12, 10), sample(12, 10), sample(12, 10))
head(PlantGrowth)
ToWide(PlantGrowth$weight, PlantGrowth$group, by=PlantGrowth$nr)
# }
Run the code above in your browser using DataLab